home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / card_12199.txt < prev    next >
Text File  |  1990-08-14  |  4KB  |  159 lines
  1. -- card: 12199 from stack: in
  2. -- bmap block id: 13003
  3. -- flags: 4000
  4. -- background id: 4754
  5. -- name: Teacher Details
  6. ----- HyperTalk script -----
  7. on rollingDemo
  8.   answer "Teacher Details demo will take approx. 2 min." with "Cancel" or "OK"
  9.   if it is "Cancel" then exit rollingDemo
  10.   set the cursor to none
  11.   lock screen
  12.   go to card "Rolling Demo Instructions" of this background
  13.   unlock screen with dissolve fast
  14.   repeat until the mouseClick
  15.   end repeat
  16.   set the cursor to hand
  17.   autoMouse moveMouse,420,60
  18.   click at the loc of bg button id 7
  19.   showInfo "Introduction",false
  20.   wait 1 second
  21.   set the cursor to hand
  22.   autoMouse menuMouse,2,1 -- New Teacher‚Ķ
  23.   if the result is "Item not found" then -- test for XCMD bug
  24.     send "doMenu New Teacher‚Ķ" to background "Teacher Details"
  25.   end if
  26.   set the cursor to none
  27.   wait 1 second
  28.   type "100"
  29.   wait 30
  30.   tabKey
  31.   type "Mrs."
  32.   wait 1 second
  33.   click at the loc of button "Female"
  34.   wait 1 second
  35.   select text of card field "Last Name"
  36.   type "Tesch"
  37.   wait 30
  38.   tabKey
  39.   type "Margaret"
  40.   wait 30
  41.   tabKey
  42.   type "Christine"
  43.   wait 30
  44.   tabKey
  45.   type "23rd Street"
  46.   wait 30
  47.   tabKey
  48.   type "Bellevue"
  49.   wait 30
  50.   tabKey
  51.   type "WA"
  52.   wait 30
  53.   tabKey
  54.   type "23498"
  55.   wait 30
  56.   tabKey
  57.   type "700 784 222"
  58.   wait 30
  59.   tabKey
  60.   type "555-6741"
  61.   wait 30
  62.   tabKey
  63.   type "555-8812"
  64.   wait 1 second
  65.   put "Jan 11, 60" into card field "Birthdate"
  66.   wait 1 second
  67.   put "July 24, 87" into card field "Date hired"
  68.   wait 1 second
  69.   put "English" into card field "Home language"
  70.   wait 1 second
  71.   put "Spanish" into card field "Ethnic Category"
  72.   wait 2 seconds
  73.   click at the loc of background button "TD Miscellaneous"
  74.   wait 30
  75.   type "Mr. Terry Tesch"
  76.   wait 30
  77.   tabKey
  78.   type "NAZ Productions"
  79.   wait 30
  80.   tabKey
  81.   type "345-6789"
  82.   wait 1 second
  83.   click at the loc of button "Department Head"
  84.   wait 2 seconds
  85.   click at the loc of background button "TD Department"
  86.   wait 1 second
  87.   put "Science" into card field "Department"
  88.   wait 1 second
  89.   set the scroll of card field "Rooms" to 96
  90.   wait 30
  91.   select last line of card field "Rooms"
  92.   wait 1 second
  93.   put "115" into card field "Room #"
  94.   wait 2 seconds
  95.   click at the loc of background button "TD Scheduler"
  96.   select empty
  97.   showInfo "Scheduler",true
  98.   wait 1 second
  99.   put "9" into line 3 of card field "Course Preference"
  100.   wait 1 second
  101.   put "9" into line 4 of card field "Course Preference"
  102.   wait 1 second
  103.   put "9" into line 5 of card field "Course Preference"
  104.   wait 1 second
  105.   put "5" into line 6 of card field "Course Preference"
  106.   wait 2 second
  107.   select text of card field "Maximum"
  108.   type "35"
  109.   wait 2 second
  110.   click at the loc of button "Room Preferences"
  111.   wait 1 second
  112.   put "Any Science Lab" & return & "-" into card field "Rooms"
  113.   wait 1 second
  114.   put "102 Science Lab" & return before card field "Rooms"
  115.   wait 2 second
  116.   click at the loc of background button "Done"
  117.   lock screen
  118.   send "doMenu About" to background "Teacher Details"
  119. end rollingDemo
  120.  
  121. on showInfo fieldName,cardPict
  122.   lock screen
  123.   set the cursor to none
  124.   restoreMenuBar false
  125.   grayPicture cardPict
  126.   installMenuBar 1180,1181,1182,1183,1184
  127.   show card field fieldName
  128.   unlock screen with dissolve
  129.   put the secs into temp
  130.   repeat until the mouseClick
  131.     if (the secs - temp) > 30 then show card field "Continue"
  132.   end repeat
  133.   lock screen
  134.   hide card field fieldName
  135.   hide card field "Continue"
  136.   pop card
  137.   unlock screen with dissolve
  138.   if the optionKey is down then exit to HyperCard
  139. end showInfo
  140.  
  141.  
  142. -- part contents for background part 5
  143. ----- text -----
  144. Teacher Details
  145.  
  146. -- part contents for background part 6
  147. ----- text -----
  148. The Teacher Details module allows you to enter information about each staff member in your school.   In particular it tracks the following information:
  149.  
  150.    ‚Ä¢  personal details
  151.    ‚Ä¢  spousal information
  152.    ‚Ä¢  homeroom
  153.    ‚Ä¢  teaching course load
  154.    ‚Ä¢  departments
  155.    ‚Ä¢  course teaching preferences
  156.    ‚Ä¢  room preferences
  157.    ‚Ä¢  and much more!
  158.  
  159. This module is particularly important to the Scheduling module, because it contains the information necessary for the Scheduler to create school and teacher timetables.